home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Auge 4000
/
Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip
/
Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf
/
Write
/
WRITE.lha
/
WRITEV3.371.lha
/
Config
/
MAILER.config
< prev
next >
Wrap
Text File
|
1993-12-27
|
7KB
|
255 lines
/*
* $VER: MAILER.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
*
* Zum Schreiben von EMails
* Wenig Menüs, WordWrap...
*
*/
IF Compare 3371 _Version;
NOP;
Ask "WRITE und MAILER.cfg haben eine unterschiedliche\n"+
"Versionsnummer\n"+
"Weiterparsen könnte gefährlich sein !"
"Stop & _Ende ^|_Weiter parsen *"
Break EQUAL _RN 0;
/* Setzen der internen Variablen */
/* ----------------------------- */
/* Lokal */
/* Standardeinstellungen */
SETVAR "_WordDef" 2 /* Wie wird ein Word definiert ??? */
SETVAR "_AutoIndent" 5
SETVAR "_ReadTabs" TRUE /* Konvertieren ja/nein ? */
SETVAR "_WriteTabs" FALSE /* " " " */
SETVAR "_CaseSense" TRUE
SETVAR "_Optimize" TRUE
SETVAR "_ShowSpace" FALSE
SETVAR "_ShowEOL" FALSE
SETVAR "_FRPattern" "~(#?(.info|.bak))"
SETVAR "_OverwriteIcon" FALSE
SETVAR "_WriteIcon" FALSE
SETVAR "_WordWrap" 2
/* Setzen der User-Funktionen */
/* -------------------------- */
/*
* Die Diese Routine wird bei App-Aktionen
* mit dem Filenamen in _RS aufgerufen
*/
SETUSERFKT 0 SETVAR "_Path" _RS
NewEd ""
Window 0 0 0 0
Open _Path;
/*
* Diese Routine wird aufgerufen,
* wenn das Closing-Gadgetgedrückt wird
*/
SETUSERFKT 1 IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"_Ab_brechen ! ^|Ab_speichern & Ende *|_Ende"
Break EQUAL _RN 0;
IF Compare _RN 1;
Save _FileName;
NOP;
QuitEd;
/* Die Tastaturbelegung */
/* -------------------- */
CLEARKEYS
KEY "help"
MessageOK "Cursorkeys : Bewegung im Text\n"+
"Shift hoch/runter : Seite hoch/runter\n"+
"Shift links/rechts : Erster/letzter Buchstabe in d. Zeile\n"+
"alt hoch/runter : Erste/letzte Zeile\n"+
"alt links/rechts : letztes/nächstes Wort\n"+
"<- : Backspace\n"+
"Del : Delete"
MessageOK "Shift Del : Lösche bis EOL\n"+
"Ctrl y : Lösche Zeile\n"+
"F1-F5 : Setze Textmarke\n"+
"f1-f5 : Springe zu Textmarke\n"+
"Escape : Iconify";
KEY "shift help"
Help; /* Help-Menu */
/* classic keys */
KEY "tab" Tab 0;
KEY "shift tab" BackTab;
KEY "escape" Iconify;
KEY "return" Return;
KEY "delete" Delete;
KEY "shift delete" DeleteToEOL;
KEY "control y" DeleteLine;
KEY "backspace" BackSpace 0;
KEY "right" CursorRight 0;
KEY "left" CursorLeft 0;
KEY "up" CursorUp 0;
KEY "down" CursorDown 0;
KEY "shift up" PageUp 90;
KEY "shift down" PageDown 90;
KEY "shift right" Goto @EOL @EOL;
KEY "shift left" Goto @SOL @SOL;
KEY "alt up" Goto _xPos 1; /* zur 1. Zeile oder */
KEY "alt down" Goto _xPos _Length; /* zur letzten Zeile springen */
KEY "alt left" LastWord;
KEY "alt right" NextWord;
/* Die Menüs */
/* --------- */
CLEARMENU
MENU "PROJEKT"
ITEM "Neu" ""
IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"Ab_brechen ! ^|_Speichern & löschen *|_Löschen"
Break EQUAL _RN 0;
IF Compare _RN 1;
Save _FileName;
NOP;
New
SetTitle "Text gelöscht." FALSE;
ITEMBAR
ITEM "Iconify" "I"
Iconify;
ITEM "Über WRITE" "!"
About;
ITEMBAR
ITEM "Speichern & Verlassen" "E"
IF Compare FALSE _changed;
NOP;
Save _FileName;
QuitEd;
ITEM "Ende" "Q"
IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"Ab_brechen ! ^|_Speichern & Ende *|_Ende"
Break EQUAL _RN 0;
IF Compare _RN 1;
Save _FileName;
NOP;
QuitEd;
MENU "EDIT"
ITEM "Setze Marke" "M"
SetTitle "Marke gesetzt." FALSE
SetMark;
ITEM "Lösche Marke" "U"
Unmark;
ITEMBAR
ITEM "Ausschneiden" "X"
CopyBlock 0
DeleteBlock;
ITEM "Kopieren" "C"
CopyBlock 0
SetTitle "Block kopiert." FALSE;
ITEM "Einfügen" "V"
InsertBlock 0;
ITEM "Löschen" ""
DeleteBlock;
ITEMBAR
ITEM "Clipboard »" ""
NOP;
SUB "Ausschneiden nach Clip" ""
CopyBlock 0
BufferToClip 0 0
DeleteBlock;
SUB "Nach Clip kopieren" ""
CopyBlock 0
BufferToClip 0 0
SetTitle "Block kopiert." FALSE;
SUB "Einfügen aus Clip" ""
ClipToBuffer 0 0
InsertBlock 0;
SUB "Buffer nach Clip" ""
BufferToClip 0 0;
SUB "Clip nachBuffer" ""
ClipToBuffer 0 0;
MENU "UTLITIES"
ITEM "Schreibe Zeichen..." ""
GetNumber "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
WriteChar _RN;
ITEM "Zeige Zeit & Datum" "T"
MessageOK "Aktuelle Zeit ist :\n$_Time$";
ITEMBAR
ITEM "UPPER word" "^"
UpperBlock @SOW @EOW;
ITEM "lower word" "#"
LowerBlock @SOW @EOW;
ITEMBAR
ITEM "Match Bracket" "("
MatchBracket;
MENU "SEARCH"
ITEM "Finde..." "F"
GetFindReplace _FindString ""
Find @CURSOR @CURSOR @EOT @EOT;
ITEM "Finde noch einmal" "N"
Find @CURSOR @CURSOR @EOT @EOT;
ITEMBAR
ITEM "Ersetze..." "Y"
GetFindReplace _FindString _ReplaceString {@REPLACE}
Replace @CURSOR @CURSOR @EOT @EOT;
ITEM "Ersetze noch einmal" "Z"
Replace @CURSOR @CURSOR @EOT @EOT;
ITEM "Ersetze alle..." ""
GetFindReplace _FindString _ReplaceString {@REPLACE}
Replace @CURSOR @CURSOR @EOT @EOT {@ALL}
Flash;
ITEM "Ersetze alle schnell..." ""
GetFindReplace _FindString _ReplaceString {@REPLACE}
Silent
Replace @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ}
Window 0 0 0 0;
ITEMBAR
ITEM "Springe zu Zeile..." "G"
GetNumber "Springe zu Zeile :" _yPos
Goto _xPos _RN;
ITEMBAR
ITEM "Zeige Index..." "J"
GetString "Bitte geben sie das Suchmuster\n"+
"für den Index an :" "#?#?"
ShowIndex _RS {@CASE};
MENU "HELP"
ITEM "Zeige Variablen" ""
ShowVars;
ITEM "Zeige Funktionen" ""
ShowFunctions;
ITEM "Zeige ASCII-Codes" ""
ShowASCII;
ITEM "Hilfe zu Stichwort..." "?"
GetString "Bitte geben sie das gesuchte Stichwort ein :" ""
GuideHelp _RS;